home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib08.dsk / REVERSE KEY DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  29 lines
  1. 1  REM  ******************************
  2. 2  REM  *   REVERSE KEY DEMO         *
  3. 3  REM  *   BY PHILLIP ROWLEY        *
  4. 4  REM  *   COPYRIGHT (C) 1982       *
  5. 5  REM  *   BY MICRO-SPARC INC       *
  6. 6  REM  *   LINCOLN, MA. 01773       *
  7. 7  REM  ******************************
  8. 8  REM  <<< NOTE: IN LINES 45 AND 110: 'F'=CTRL F; 'I'=CTRL I; 'N'=CTRL N
  9. 10  PRINT  CHR$(4)"BRUN REVERSE KEY"
  10. 15  HOME : HTAB 10: PRINT "REVERSE KEY DEMO"
  11. 20  HTAB 10: PRINT "================": PRINT 
  12. 25 I$ =  CHR$(9):N$ =  CHR$(14):F$ =  CHR$(6)
  13. 30  LIST 25: LIST 35: PRINT 
  14. 35  PRINT "AAAA"F$"AAAA"N$"AAAA"I$"AAAA"N$"AAAA"
  15. 40  PRINT : PRINT "OR USING EMBEDDED CONTROL-CHARACTERS": PRINT : LIST 45
  16. 42  FOR T = 0 TO 9999: NEXT 
  17. 45  PRINT "AAAA<CTRL-F>AAAA<CTRL-N>AAAA<CTRL-I>AAAA<CTRL-N>AAAA"
  18. 50  PRINT : PRINT "LISTING OF LINES WHEN REVERSE KEY IS ON SHOWS HOW LINE WILL PRINT"
  19. 55  PRINT : PRINT "LISTING WHEN 'REVERSE KEY' IS OFF SHOWS NOTHING UNUSUAL"
  20. 60  PRINT : PRINT "PR#0"
  21. 65  PR# 0
  22. 70  LIST 45
  23. 75  FOR T = 0 TO 9999: NEXT 
  24. 80  PRINT : PRINT "RESTART 'REVERSE KEY' - CALL 768"
  25. 85  CALL 768
  26. 90  PRINT : LIST 45
  27. 100  PRINT : PRINT "REVERSE KEY IS NOW ON FOR YOU TO TRY"
  28. 110  PRINT : PRINT "LINES CONTAINING <CTRL-F>EMBEDDED<CTRL-N> CONTROL CHARACTERS CANNOT BE EDITED"
  29. 120  PRINT : PRINT "LINES USING STRING VARS CAN BE EDITED E.G.": PRINT : LIST 35